AB or BB after substitution 







1 . 



2. 64K DATA & OP CODE CONVERTER 



3. 

4. JIM DUNSON 

5. 13900 RIVER ROAD 

6. PERDIDO KEY FL 32507 

7. (904) 492-1470 

8 . 

9. 



£=right arrow 
s=leave 1 space 
x=multiply symbol 
d=divide symbol 
■)/:more than symbol 
V=less than symbol 



1 0 CLEAR ;NT=0 ;BC=127 ;FC=8 ;FRINT ;PRINT "VDATA & OP CODE 

CONVERTER-/"; BOX -2,25,140,1,1 

2 0 PRINT ; PRINT "RENTER MINUS SIGN FIRSTs sssWITH NEGATIVE 

DECIMAL. 

3 0 PRINT ; PRINT "(isALL ENTRIES: ENTER ZEROSssLEADING, IF NEEDED, 

TOssssTOTAL REQUIRED DIGITS. 

4 0 CY=- 39; PRINT . .... .PUSH ANY KEY. . . . . . . ";IF KPCLEAR 

5 0 PRINT ; PRINT "(^SELECT KNOWN RADIX";PRINT ;PRINT"ss(l) BINARY" 

;PRINT "ss(2) DECIMAL"; PRINT "ss(3) HEXADECIMAL 

6 0 B=KP;IF (B=49)+(B=50)+(B=51)GOTO 80 

7 0 GOTO 230 

8 0 CLEAR ;IF B=49A=16;GOSUB 310;PRINT "BINARYs", ;GOTO 150 

9 0 IF B = 51A=4;GOSUB 310;PRINT "HEXADECIMALS ”, ;GOTO 190 

10 0 . ENTER DECIMAL 

1 1 0 A=5:C=0:GOSUB 310;PRINT "DECIMAL", :CX=49;FOR F=20022TO 20030STEP 

2;GOSUB 250;IF K=-3CX=49;PRINT "s", ;CX=43;PRINT ;C=2;F=F-2;NEXT F 
120 NEXT F;D=(Kx10000)+(Lx1000)+(Mx100)+(Nx10)+0;IF C=2D=-D 
13 0 PRINT ;GOSUB 330;GOSUB 370;GOTO 270 
140 .ENTER BINARY 

1 5 0 FOR F=20022TO 20052STEP 2;GOSUB 250;IF (%(F)V1)+(%(F)-/0)GOTO 230 

160 IF (F=20028)+(F=20036)+(F=20044)TV=32 

170 NEXT F;PRINT ;GOSUB 370;GOSUB 430;GOTO 270 

180 .ENTER HEX 

1 9 0 CX=55;FOR F=20014TO 20020STEP 2;A=KP;IF A-I/64IF A-/71%(F)=A-55;TV=A; 

NEXT F 

2 0 0 IF AH/47IF A-/58%(F)=A-48;TV=A;NEXT F 

2 10 IF FH/20020PRINT ;GOSUB 430;GOSUB 330;GOTO 270 
2 20 .WRONG KEY 

2 30 CLEAR ;CY=0;PRINT "iAWi/sINVALID ENTRYs V-/W-/";FOR F=lTO 100; 

NEXT FjCLEAR ;GOTO 50 
240 .TV B. & D. ENTRY 
2 5 0 %(F)=KP-48;TV=%(F)+ 48;RETURN 
2 60 .DISPLAY & OPTIONS 

2 70 C Y=34;PRINT "DATA & OP CODE EQUIVELANTS";BOX -1,29, 159, 1, l;CY=-39 
28 0 BOX -1, -32, 159, 1, 1;PRINT "(1) NEW RADIXss(s) REPEAT";IF KP-49CLEAR 
GOTO 50 

2 90 GOTO 80 
300 .PRE -ENTRY 

3 1 0 PRINT ; PRINT #1, "£sENTERs", A, "sDIGITS, ";PRINT ;RETURN 
3 20 .DECIMAL TO BINARY 

3 30 E=D;A=0;IF E-/0 E=E+32767+ 1 ;A=1 

3 40 FOR F=20052TO 20022STEP -2;E=Ed2;%(F)=RM;NEXT F:IF A=1K=J 
5 50 PRINT ;PRINT #1, "BINARYs”, K,L,M,N,”s",0,P,Q,R,”s”,S T U V ”s” 

W,X, Y, Z;RETURN 
3 6 0 . BINARY TO HEX 

3 7 0 J=Z+(2xY)+(4xX)+(8xW) ;I=V+(2xU)+(4xT)+(8xS) 

3 8 0 H=R+ (2xQ)+ (4xP)+(8xO);G=N+(2xM)+ (4xL)+(8xK) 

3 90 .TV HEX. HOLD GHIJ - 

400 PRINT ; PRINT "HEXADECIMAL”, ;CX=55;FOR F=20014TO 20020STEP 2; 
A=%(F)+48;IF AH/57A=A+7 

4 1 0 TV=A;NEXT FjPRINT ;RETURN 
4 2 0 .HEX TO DECIMAL 

430 A=D;IF GV7G=G-8;A=1 

440 D=(4096xG)+(256xH)+(16xI)+J;IF A= lD=D-32767-l 
45 0 PRINT ; PRINT "DECIMAL”, #1 9, D;RETURN 



TO RUN IN BB SUBSTITUTE AS FOLLOWS: 

1 1 0 FOR F=20022TO 20030 substitute FOR F=20098TO 20106 
FOR F =20022 TO 20052 



1 5 0 
160 

1 90 

2 1 0 
340 
400 



„ substitute FOR F=20098TO 20128 

FORF 3 ^4Tn = E^ )+(F l M ^ ±) SUb IF ( F= Hi0i)+<F=20112) + (F=20120) 

i OR F-200I4TQ 20020 substitute FOR F =20090TO 20096 ” 

IF F-t/ 20098 

substitute FOR F=20128TO 20098 
substitute FOR F=20090TO 20096 



substitute 



IF FH/ 20020 
FOR F=20052TO 20022 
FOR F =200I4 TQ 20020 



1 







AFB 




ON: IB APR 1384 

1 . 

G4K DATA & OP CODE 
CONVERTER 



2 

3 

4 

5 
G 

7 

8 



JIM BUNSON 
1#9B0 RIVER ROAD 
PERDIDO KEY1852G 32587 
(304) 432-1470 



10 CLEftR ; NT = 0 ;BC= 127 ; FC=8; PRINT ; PRINT ">DATA & OP CODE CONVERT ER< BOX -2,25,1 
40 1 1 

20 PRINT ; PRINT “a ENTER MINUS SIGN FIRST WITH NEGATIVE DECIMAL. 

30 PRINT ; PRINT "a ALL ENTRIES: ENTER ZEROS LEADING, IF NEEDED, TO TOTAL REQ 

UIRED DIGITS. 

40 CY=-33; PRINT * .PUSH ANY KEY. IF KPCLEAR 

50 PRINT ; PRINT "a SELECT KNOWN RADIX* ; PRINT ; PRINT ” Cl) BINARY* ; PRINT * (2) 

DECIMAL* ; PRINT “ C3) HEXADECIMAL 

G0 B=KF; IF ( B=49 )+( B=50 ) + C B=51 )GOTO 80 
70 GOTO 230 

80 CLEAR ; IF B=43A=1G; GOSUB 310;FRINT "BINARY ",;GOTO 140 
30 IF B=51A=4; GOSUB 310;PRINT "HEXADECIMAL ",;GOTG 180 
100 .ENTER DECIMAL 

110 A=5 ; C=0 ; GOSUB 310; PRINT "DECIMAL* , ; CX=49; FOR F=20022TO 20030STEP 2;G0SUB 250 

; IF K=-3CX=43 ; PRINT ” *,; CX=43 ; PRINT * - ” , ; C=2; F=F-2; NEXT F 

120 NEXT F;D=(Kbl0000)+CLbl000)+CMbl00)+CNbl0)+O; IF C=2B=~D 

130 PRINT ; GOSUB 330; GOSUB 370; GOTO 270 

140 .ENTER BINARY 

150 FOR F=20022TO 20052STEP 2; GOSUB 250; IF C %(. F ) >1 ) + t %C F )< 0 )GOTO 230 

1G0 IF ( F =20028 )+( F=20036 )+( F=2B044 )TV=32 

170 NEXT F; PRINT ; GOSUB 370; GOSUB 430; GOTO 270 

180 .ENTER HEX _ „ ^ 

190 CX=55 ; FOR. F=20014TO 20020STEP 2;A=KP;IF A>G4IF A<71%C F )=A-55; TV=A; NEXT F 

200 IF A>47IF A<58%C F )~ A-4B ; TV=A; NEXT F 

210 IF F >20020PRINT ; GOSUB 430; GOSUB 330; GOTO 270 

220 .WRONG KEY 

230 CLEAR ;CY=0;PRINT *>>>>> INVALID ENTRY <<<<<“ ;FOR F=1TQ 100;NEXT F ; CLEAR ;G 
OTO 50 

240 .TV B. & D. ENTRY 

250 % C F ) =KP - 48 ; T V=% ( F ) +48 ; RETURN 

260 .DISPLAY & 0PTIONS 

270 CY=34; PRINT “DATA & OP CODE EQUIVELANTS “ ; BOX - -1 , 23, 153, 1 , 1 ; CY=-39 

280 BOX -1,-32, 153, 1,1; PRINT "(1) NEW RADIX C ) REPEAT"; IF KP=49CLEAR ; GOTO 50 



DIGITS, "; PRINT ; RETURN 



230 GOTO 80 
300 .PRE- ENTRY 

310 PRINT ; PRINT #1 , “a ENTER ”,F 
330 .DECIMAL TO BINARY 
340 E=B; A=0; IF E<0E=E+327G7+1 ; A=i 

350 FOR F=20052TO 20022STEP -2 ; E=Ec2; %C F )=RM ; NEXT F; IF A=1K=1 
3G0 PRINT ; PRINT #1, “BINARY " ,K,L,M,N, ” " ,0,P,Q,R, * “ ,S,T,U, V, 



1 , W , X , Y , Z ; RETURN 



370 .BINARY TO HEX 

380 J=Z+( 2b Y )+( 4bX ) + C 8bW ) ; I=V+C 2bU ) + ( 4bT ) + C 8bS ) 

330 H=R+( 2b Q )+C 4bP )+( 8b0 ) ; G=N+( 2bM ) + ( 4bL )+C 8bK ) 

400 .TV HEX. HOLD GHIJ 

410 PRINT ; PRINT "HEXADECIMAL" ,; CX=55; FOR F=20014TO 20028STEP 2; R=%C F )+48; IF A>5 
7A=A+7 

420 TV=A ; NEXT F; PRINT ; RETURN 












430 .HEX TO DECIMAL 
440 A=D; IF G>7G=G-8 ; A=1 

450 B=( 4036b G ) + ( 25BtaH ) + ( lGbl )+J ; IF A=1D=B-327G7- 1 
460 PRINT ; PRINT " DECIMAL" , #13 , D ; RETURN 



> x UUuUUUUu UUUUL, UUUUUUUUUUUUUUUU 3 UUUUUUUUUUUUUUUUuUUUUU 3 UUUUUUUUUUUUUUU 3 UUUUUu uuu 

32000 FOR fl=DTO E;IF %( ft )c258#13NEXT ft 
32010 N=N+1 ; R=R+2; @C N )=%( ft ) ; NEXT R 

3 fRn®i3>«R M ::24r>Gi^B P F G::PRINT F;F0R fl ‘ DT0 * , B-*< « ,cZ S 6; IF 

32030 IF CRM=110)+CRM=111 3GOSUB H 
32040 NEXT fl; PRINT ; STOP 

T==0;FOR B=flT0 fl+5;IF CX(B)c25G-53)cG=0 T=Tb 10+RM+5; R-R+l ; NEXT B 
32060 FOR B=0TO N; IF @CB)=TPRINT #0, BbG+O, ; RETURN 
32070 NEXT B; RETURN 

32080 PRINT #4, MbG+O, ; TU=32 ; M=M+1 ; R=R+2; RETURN 




1 . 

2 . 

3 . 

4 . 

5 : RETURN 

S . MATH TEACHER 

7 .J DUNSON 

8 .REU 2/81 

9 E=420 ; 7=430 ; G=450 ; H=330 ; 1=390 ; J=400 ; K=410 ; N=360 ; 0=370 ; Q=440 

10 NT=0; GOSUB F ; CLEAR ; &C 3 )=168 ; GOSUB Q; PRINT ; PRINT ; PRINT “*> aNATH TEACH 
ER_ <*“;CY=-24; PRINT " + - b c PUSH GO! c b - +*; GOSUB E 
20 FOR D=1T0 2000; IF &C23)=1G0SUB F;GOTO 40 
30 NEXT D; FC=BC-7; GOTO 20 

40 CLEAR ; PRINT ; PRINT ; PRINT ”*> HOW MANY WOULD YOU <* LIKE THIS TIME?” 

5 GOSUB E 

50 CX=-6; INPUT ””P;IF ( P< 1 ) + ( P >100 )PRINT "a FROM 1 TO 100 PLEASE! _”;GOTO 50 
S0 GOSUB F; CLEAR ; PRINT ; PRINT ”*> SELECT SKILL LEUEL <*"; PRINT ; GOSUB G;PRI 
NT "1. Cl TO 5)”; GOSUB G; PRINT ”2. Cl TO 10)”; GOSUB G; PRINT “3. Cl TO 12) 

70 GOSUB G; PRINT "4. C5 TO 12 ) “ ; GOSUB G; PRINT ”5. C3 TO 12)” ; GOSUB G; PRINT "S 
C 12 TO 20)”; GOSUB E;M=KP; GOSUB F 

80 CLEAR ; PRINT ; PRINT “*> MAKE SELECTION <*”; PRINT ; GOSUB G; PRINT ”1, A 
DD”; GOSUB G; PRINT “2. SUBTRACT” ; GOSUB G; PRINT “3. MULTIPLY” ; GOSUB G 
90 PRINT ”4. DIUIDE” ; GOSUB G ; PRINT “5. MIXED”;GOSUB E;T=KP 
100 R=0;W=0;L=P+1; CLEAR 
110 CLEAR ; IF R+W>P~1G0SUB F;GOTG 460 
120 IF M=49A=RNB C5);B=RND C5) 

130 IF M=50A=RNB C10);B=RND C 10 ) 

140 IF M=51A=RNB C 12);B=RND C 12) 

150 IF M=52A=RND C8)+4;B=RNB C8)+4 

160 IF M=53A=RNB C4)+8;B=RND C4)+8 

170 IF M=54A=RND C8)+12;B=RND C8)+12 

180 IF T=49G0T0 250 

190 IF T=50GOTO 270 

200 IF T=51G0T0 290 

210 IF T=52G0T0 310 

220 S=RNB C 4 ) ; IF S=2G0T0 270 

230 IF S=3G0T0 290 

240 IF S=4G0TQ 310 

250 GOSUB H; GOSUB N; PRINT *1 , A, ”+“ , B, ; INPUT "”C;IF A+B=CGOTQ I 
260 GOSUB J; PRINT #2 , A+B; GOSUB K;GOTO 250 

270 GOSUB H; GOSUB N; PRINT #1 , A+B, " ~ , B» “ = ”,; INPUT ”"C;IF A=CGOTO I 
280 GOSUB J ; PRINT #2,A,;GQSUB K;GOTO 270 

230 GOSUB H; GOSUB OjPRINT #1 , A, ”b ” , B, "=” , ; INPUT ””C;IF AbB=CGOTO I 
300 GOSUB J; PRINT #2, AbB; GOSUB K;GOTO 290 

310 GOSUB H; GOSUB 0;PRINT #1 , AbB, ”c ”, B ,“=”,; INPUT ”“C;IF A=CGOTO I 
320 GOSUB J; PRINT #2, A; GOSUB K;GOTG 310 

330 L=L-1 ; CX=-6; CY=38; PRINT #i,L; GOSUB Q;BOX 0, 0, 84, 40, 1 ; BOX 0, 0, 72, 32, 2; X=~ 15; 
CY=0; IF A >9X=X-3 
340 IF B>9X=X-3 
350 RETURN 

360 IF A+B >3X=X-3; CX=X; RETURN 
370 IF AbB>3X=X-3; IF AbB>39X=X~3 
380 CX=X; RETURN 

330 CX=-18; PRINT "CORRECT !“; R=R+1 ; FOR B=1T0 200;NEXT D;GOTO 110 

400 CY=-32; PRINT ” CORRECT ANSWER IS ”,; RETURN 

410 FOR D=1T0 500; NEXT D ; W=W+ 1 ; RETURN 

420 FOR D=0TO 176; &C 10 )=B; NEXT D; RETURN 

430 FOR D=176TQ 0STEP - 1 ; &C 10 )=D ; NEXT B 



■440 BC=RND ( 32 )b8;FC=BC-l; RETURN 
450 CX=-40; RETURN 

460 PRINT ; PRINT “*> SESSION OUER <*";PRINT ;PRINT " RIGHT RNSWERS: " , # 

1,R; PRINT * WRONG RNSWERS: “,#1,W 

470 PRINT ; PRINT ;PRINT " FOR R REPERT, PUSH ..... 1 PRINT ’ FOR DIFFERENT, PUSH 
2 “ ; GOSUB E 

480 FOR D=1T0 2000; IF &( 23 )=8G0T0 100 
490 IF &C 22 )=8G0SUB F;GOTO 40 
500 NEXT D; FC=BC-7; GOTO 480 



>xu 



UUUUUUUUuUUUUuUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUI 



UUUUUUUUUu UUUUu *u UUUUu UUUUUUULIUU 



3 

4 

s 

7 

8 



. MATCH MY HUMBER 
■JIM DUNSON 12x78 
•WORK MODEL 
, WxBUGS 



3: 



156,84, 2; CY=37; CX=~44; PRI 
TRY LESS T 
#3 

, F; CY=1 1 ; CX=38; PRINT #1 , L ; CY= 



10 CLEAR ;NT=0;CY=0; print “ HOW MANY PLAYERS'? Cl -9) 

20 X^KPiCLEAR ; BC=!27; FC=88; BOX 0,0^60 88 -b5 0 

NT "MATCH MY NUMBER “ ; BOX 0,32,160,1 1 ’ S8 ’ 1,B ° X 0 ’ 

30 CY-27;CX=-62; PRINT " SCORE BOX 0 22 t era i , . rv _ f , 

HAN” ; CY=2; CX=-48; PRINT "TRY MORE THAN"’ ’ ’ ’ ’ C*" 11 ; CX=-48; PRINT 

^40 CY~ - 13| CX=-62 ; PRINT "#t ” * py= ?i •ns/— r*- > n n 
. ";B=0;E=0;F=0;T=0 ’ ’ 21 , CX- G2; PR J NT ■ #2 , " ; CY=-29 ; CX=-62 ; PRINT 

50 M=0,'U=0;L=100;R=RND 09) 

60 CY=27; CX=-20; PRINT #1,” i;» q ■■ 2 - - f ■ 

2; 7S = ?p ; v R I NT #1 ’ M;G0SUB ^GBiGOSUB 430; INPUT’ “”A 
70 IF X=49G0T 0 110 

80 60SUB 470;GOSUB 490; INPUT “ "B 
S0 IF X=50GOTO 110 
100 GOSUB 480 ; GOSUB 490; INPUT ”“C 

120 IF^R=A^D=D+1^GOSUB^4G0^GOSUB^510^^^ 500;GOSUB 480 = G °SUB 500 
130 IF R=B E=E+1; GOSUB 470; GOSUB 510 
140 IF R= C F=F+1; GOSUB 480; GOSUB 510 
150 IF U>0FOR 2=1T0 1000; NEXT 2 

170 G=A>B 0=A<B S ^I-A>c ; ^T S A ® 470;GOSUB 5 00;GQSUB 480; GOSUB 500 

; W=C<R ’ H ft<E ,I " a>C ;J ^ B<C ;K = 8>R 1 0=B>C ; P=B< C ;G=B>R ; S = B <R ;U=OR 

180 IF X=50GOTO 230 
190 IF X=51G0T0 300 



200 IF K L-A 

210 IF N M=A 

220 GOTO 380 

230 IF K IF Q if G L=B 

240 IF K IF Q IF H L=A 

250 IF K IF S L=A ; M=B 

260 IF N IF Q L=B ; M=A 

270 IF N IF S IF G M=A 

280 IF N IF S IF H M=B 

290 GOTO 380 



300 IF K IF Q IF U GOSUB 530 

310 IF K IF Q IF w GOSUB 600 

320 IF K IF S IF U GOSUB 840 

330 IF N IF Q IF u GOSUB 680 

340 IF N IF S IF W GOSUB 720 

350 IF N IF S IF U GOSUB 790 

360 IF N IF Q IF W GOSUB 830 

370 IF K IF S IF W GOSUB 870 

380 IF D>3G0SUB 460; GOSUB 520 

390 IF E>9GGSUB 470; GOSUB 520 

400 IF F>9G0SUB 480; GOSUB 520 

410 IF T >0GOTO 440 

420 IF U>0GOTO 50 
430 GOTO 60 

440 FOR Z=1T0 2000; NEXT Z 
450 GOTO 10 





460 CY=-1Z;CX=~38;R 
470 CY=-2i ; CX=-38;R 
400 CY=-23;CX=-3S;K 
430 PR I SIT " YOUR T 
500 PRINT ■ 

510 PRINT “HATCHED 
520 PRINT "IS A W 
530 IF H IF J L-A 
540 IF G IF P L=B 
550 IF I IF O L=C 
560 IF H IF B=C L=A 
570 IF P IF A=C L=B 
580 IF I IF A=B L=C 
530 RETURN 
600 IF H L=A ;N=C 
610 IF G L=B ;H=C 
620 IF A=B L=A ; M=C 
530 RETURN 
640 IF J L=A ;M=B 
650 IF I L=C ;H=B 
660 IF A=C L=A ;H=B 
570 RETURN 
680 IF P L=B ;M=A 
630 IF 0 L=C ;H=A 
700 IF B=C L=B ;M=A 
710 RETURN 
720 IF G IF I H=A 
730 IF H IF 0 H=B 
740 IF J IF P M=C 
750 IF G IF B=C H=A 
760 IF 0 IF A=C H=B 
770 IF J IF A=B H=C 
780 RETURN 
730 IF G N=A ; L=C 
S00 IF H H=B ;L=C 
810 IF A-C N=A ; L=C 
820 RETURN 
830 IF I M=fl ;L=B 
840 IF J M=C ; L=B 
850 IF A=C H=A ; L=B 
860 RETURN 
870 IF O H=B ;L=A 
880 IF P M=C; L=A 
830 IF B=C M=B ; L=A 
800 RETURN 



RETURN 



RETURN 

; U=U+1 ; RETURN 
;T=T+1; RETURN 
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2333 W. Huron 



Chicago, II 60612 
October 23, 1980 

Robert Fabris 
3626 Morrie Drive 
San Jose, CA 95127, 

% 

Dear Bob, 

I've written a bunch of BASIC programs to allow users to in- 
teractively construct line drawings with the joystick and to ro- 
tate, scale, and translate them once they've been drawn. The do- 
cumentation is different in that I typed copies of all my pro- 
grams on a minicomputer. This was extra work since any change in 
the BASIC code had to be updated on the mini, but it was the only 
way to get printouts easily. 

The printout I've sent contains all the programs in line 
number order and the comments should be adequate to explain 
what's going on. Basically LDRAW (line 1500) lets you use joys- 
tick 1 to draw lines with mode 0 or 1 . Each xy coordinate and 
drawing mode is packed into the 0 array by PACK. 

To scale a picture up (scaling down is a little trickier and 
you can't do both in the same program because of non-linearities) 
you use SETSCALE (2200), which reads the joystick and calls UNPK 
to unpack each stored xy coordinate. Then we call SCALE to per- 
form the transformation. 

Obviously all the programs don't need to be in memory at once 
and in fact they probably won't all fit. There's lots of BASIC 
comment lines that can be removed. Of course any change requires 
you to use LDRAW to refill the 0 array, since its location 
changes • 



Since rotation refmres using sines and cosines, I store the 
cosines of 0->90 degrees scaled up by 250 (cosines are < 1 and 
BASIC doesn't handle fractions) using a program Dan Sandin got 
from someone (COSLD). So it's necessary to GOSUB 1000 to set up 
the cosine array whenever the BASIC code is modified. So the 
packed xy coordinates from LDRAW start at 0(91). If you're not 
using the rotate code, the code can be changed to use all of the 
array elements for packed xy coordinates and COSLD and COSSIN can 
be removed. 






The COSSIN program calculates the sine and cosine of any an- 
gle (positive or negative). We only need to store the 91 cosines 
since all others can be derived from these. If you're doing ro- 
tates, the variable R is used in a computed GOSUB (line 2385), so 
for example if you want to rotate about the x axis, set R=1200 
(entry point to XROT). I've also got TROT (1300), ZROT (1400), 
aid I derived the equations for x followed by y rotation in XYROT 
(2400). Note that y followed by x is not the same. Ambitious 
folks who enjoy multiplying matrices can derive other equations 
for xz, yz, xyz, xzy, etc. rotations. 

In each rotation I give the formula for the new x and y coor- 
dinate (x' and y') in terms of the old x, y, and z. Since for 
now LDRAW works in 2D, z is always 0. In line 2410 and 2420 what 
I'm giving are the equations for the new x and y when we rotate 
about the x axis by the angle t (theta) and about the y axis by 
the angle g (gamma). 

fls. M 




s[< sje # sjc sjt sjs sjc s{s if. s{e sjc sj£ s}: s}: # jjs # sjs sjs sjs $ sjs sjs sjs sjs $ sj: sjs sjs sjs sjs sjs 

UNPK 

Jim Marselle 6/2/80 

This program unpacks x, y, and p from the value in'0(i) 
needs: 

0 (i). 

returns : 

x, y, p. 

clohhers: 

a . 



calls: 

nothing. 

500 .unpk x , y, & p. 

510 a = @(i) 

520 p = 1 

530 if a < 0 p = 0 ; a = -a 

540 x = a / 100 - 80 5 y = rm - 50 

550 return 

# sjt sjs sjss^ sjs # # sjs s^ sjs sjs sjs sjs 5jt >je sje # sjs sjs sjs sjs Jje sjs sjs sjs sjs sjs jjt sjs 

sjs sj: sjs * sjs sjs sjs sjs sjs sjs sjs sjt s^sjt 3js sjs 3js s}: sjs sjs !{e sjs # sjs sjs sjs sjs sjs sjssjs sjs sjt sjs sjs 

COSSIN 

Jim Marselle 5/27/80 

This program calculates the sin and cos of t in c and s 
needs : 

t. 



returns : 

c , s . 

clobbers: 

u, v . 



calls: 

nothing. 

sjs sj: # sjs sjs sjs sjs Sjs sjs sjs Jje sj: sjs sjs sjs sjs sjs sjs sjs sjs sjs sj: sjs sjs sjs ){t sjs sje sjs sjs sjs sjs sjs sjs 

700 .cos & sin of t in c 
710 .& s. clobbers u & v. 

720 u = t / 360 J u = rm 
730 v = abs(u) 

740 .cos(-t) = cos(t) 

750 if v < 91 c = 0 ( v ) J goto 800 
760 if v < 181 c = -0(180 - v) ; goto 800 

770 if v < 271 c = — 0 ( v - 180) J goto 800 

780 c = 0(360 - v) 

790 .sin(t) = cos(90 - t) 

791 .sin(-t) = -cos (90 - t) 

800 if v < 91 s = 0(90 - v) J goto 850 
810 if v < 181 s = 0 ( v - 90) J goto 850 

820 if v < 271 s = -0(270 - v) J goto 850 

830 s =-0 (v - 270) 

850 ifu<0s=-s 
860 return 

sjs sj: sj: s^ Sjs sjs sj: s{: s^sjssjss^sjssjtsjssj: sjssjs sjs s^ sjssjs sjssjs sjs sjss^ sis s^ sjssjs sjt s^ 

PACK 

Jim Marselle 5/27/80 
This program packs x, y, and p into 0(i). 



needs: 

i, P, x, y. 

returns : 

0(i) = packed value. 



clobbers : 

nothing. 



calls : 

nothing. 

600 .pack p , x , y into 0(i) 

S10 .100 * (x + 80) + y + 50 *- 

920 if p = 1 e(i) = 100 * x + y + 8050 5 return 

930 0(i) = -100 * x - y - 8050 J return 

»!t a{t # sjt # Sit*#*## Sje # 5 {e # # jjc # sjt ## sjc jjc # jjt j{e jjt 3jt jjt J(: 
o' # * sje 5^ sje j}c Jjc $ # $ # $ jjt $ jjc j{c jjt jjc jjc jjt jjc Jjc jjc aje 

COSLJF\ 

y Dan Sand in 5/27/80 

This program loads 0(0) -> 0(90) with the cosines of 0 -> 90 degrees 
times 250 (to keep roundoff as small as possible). 

needs : 

enough 0 ( ) space . 

returns : 

nothing. 

clobbers : 

m, q, v, x. 



calls: 

nothing. 

1000 .cos array load 

1010 x = 10000 

1020 m = 2715 

1030 v = 0 

1060 0(0) = 250 

1070 for q = 1 to 90 

1080 v = v - x / m 

1090 x = x + v -> 

1095 0(q) = x / 40 k 250 

1100 next q . . 

1110 return 

❖ Jfc Jjt Jjc jjc jjt jjc 3{c jjc jjc jjt jjc jjc jjc jjc jjc jjc j{t jjc jjc jjc jjejjc jjc jjc jjc age 

# # Jjc jjc s{e jjc J{e jjc jjc jjc jjc jjc jjc jjc jjc sje jjc jjc jjc jjc jjc jjejjc jjc jjc jjc jj: 

XROT 

Jim Marselle 5/27/80 

This program calculates transformed coordinates for a rotation about 
the x axis at the angle whose cosine = c and sine = s. 

needs : 

x, y, z = original pix coordinates, (note: z = 0 if we're 2D) 
c and s. 

returns: 

u, v = new pix x-y coordinates. 



clobbers : 



nothing. 



calls 



nothing . 

# # # # # # # # # # # # * # # # # # # # # # # # # # 

1200 .x rotf new x, y» z in 

1210 .u, v, v, needs c & s 

1220 .x' = x , y' = ycos + zsin(\_z' 

1230 u = x 

1240 v=(y*c+z*s)/ 250 
1250 return 

# # # # # # # # sjc # # # # # sje # # # # # # # # # # # # # 
################### ######## 

YROT 

Jim Marselle 5/27/80 



zcos - ysin* 

|-vvl 
» A ^ 




This program calculates transformed coordinates for a rotation about 
the y axis at the angle whose cosine = c and sine = s. 



needs 



x, y f z = original pix coordinates, (note: z = 0 if we're 2D) 
c and s. 



returns : 

u, v = new pix x-y coordinates. 

clobbers : 

nothing. 

calls : 

nothing. 

########################## 

1300 .y rot 

1310 .x' = xc os - zsin , y' = y , z' = xsin + zcos 
1320 u = (x * c - z * s) / 250 
1330 v = y 
1340 return 

################################### 

>je Jje Jje Jje sje sje sje sje sje sje sje sje# sje jje sje Jje sje sje ######## 

ZROT 

Jim Marselle 5/27/80 

This program calculates transformed coordinates for a rotation about 
the z axis at the angle whose cosine = c and sine = s. 

needs : 

x, y, z = original pix coordinates, (note: z = 0 if we re 2D) 
c and s. 

returns : 

u, v = new pix x-y coordinates. 

clobbers : 

nothing. 

calls : 

nothing . 

jje jje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje # # sje 

1400 .z rot 

1410 .x' = xc os + ysin , y' = ycos - xsin , z' = z 
1420 u = (x ^ c + y ^‘s) / 250 
1430 v=(y*c-x*s) / 250 
1440 return 

sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje # sje # sje sje sje sje sje 

sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje #sjt sje sje sje sje sje sje# sje sje #sje sje Jje 

LDRAW 

Jim Marselle 6/2/80 



This pgm allows the user to draw lines with' mode 0 (no draw) and mode 1 
(draw). Use jx(l) and jy(l) to control the rubber-hand line, pull tr(l) to 
draw the line, if kn(l) < 0, mode = 0. Otherwise mode = 1. 

To delete the last drawn point hit a key in column l, to exit hit a key 
in column 2. 



Enough 0() space to store the packed x, y, and p values starting at 
0(92) (the number of points will 

be stored at 0(91)). This is done to allow 0(0) -> 0(90) 

to contain the cosines of 0 -> 90 degrees for rotations. If rotation 

will not be used, change this pgm. 



needs : 






returns: 

0() filled with the packed values of x, y, and p (the draw mode), 
b and c are the x and y center of the pix, resp. 



clobbers : 

b, c, d, e, i, p, u, v, x, y. 







calls : 

PACK, UNPK . 

# # sjt j}c s^sjt j)c sjt j{e >je jjc $ aje # ### ## # # # & ## # # 



1500 .line draw 
1510 nt = 1 
1560 clear 



1570 

1580 

1590 

1600 

1610 

1620 

1630 



cy = 40 

print "jx(l) , jy(l) to move” 
print "tr(l) to draw line" 
print "if kn(l) > 0 , we draw(p = 
print '[else we don't ti (p =0)" 
print ’’hit 1 to delp" cUWit 
print "2 to quit" 



1640 i=92;x=0;y=0Jp=0 

1641 .xmax, xmin, ymax, ymin 

1642 b = -80 ! c = 79 J d = b ! e = c 
1650 .pack dummy first point into 0(92) 
1660 gosub 900 



D” 



1670 line 0,0,0 

1680 input b » clear 

1685 u=0>v=0»i=93 



1690 .quit? 

1700 if &(22 ) 0(91) = i - 92 goto 1890 
1710 u = u + Jx ( 1 ) » v = v + jy ( 1 ) 

1720 line u , v , 1 ; line x , y , 0 

1721 line u , v , 2 ; line x , y , 0 
1740 if tr(l ) goto 1820 ; .line 
1750 if &(23) = 0 goto 1700 

1760 .delp 

1770 if i « 93 goto 1700 
1780 i = i - 2 



1790 gosub 500 » .unpk x , y , p 

1791 line x , y , 0 

1792 u = x J v = y 

1793 i = i + 1 



1795 gosub 500 

1800 if p line x , y , 2 5 line u , v , 0 
1805 x = u j y = v 
1810 if & (23 ) mu = 100 L 5 goto 1810 
1812 goto 1700 

1820 if kn(l) > 0 p = 1 » goto 1840 

1830 p = 0 

1840 x = u > y = v 

1850 line x , y , p 

1860 gosub 900 

1861 if x > b t = x 5 goto 1863 



I 



1862 if X < C C = X 

1863 if y > d d = y 5 goto 1870 

1864 if y < e e = y 

1870 i = i + 1 

1871 if tr(l) mu = 100 ; goto 1871 
1880 goto 1700 

1890 clear 

1891 .get xcen & ycen 

1892 b = (b + c) / 2 

1893 c = (d + e) / 2 

1900 for i = 92 to 0(91) + 91 

1910 gosub 500 

1920 line x , , y , p 

1930 next i 

1940 return 

jj! sje sje sje sje sje sje sje sje sje $ sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje s{: 
sje s}e sje sje sje sfc sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje sje 

MOV 

Jim Marselle 6/2/80 




4k 




This program calculates the transformed x-y coordinates for a translation 
of k units in x, 1 units in y, and returns the transformed coordinates in 
u and v, resp. 



needs : 

k, 1, x, and y. 



returns : 

u and v - new x-y coordinates. 



clobbers : 

nothing. 



calls : 

nothing. 

s|e sje sje sje sje sje sje sje sje $ sje sje sje Sje sje sje sje sje sje sje sje $ sje sje sje ajt sje $ sje sje sje 

2000 .mov 
2010 .x' = x + tx 
2020 .y' = y + ty 
2030 u = x + k 
2040 v = y + 1 
2050 return 

sje sje sje sje sje $ afe sje sje sjesje sje sje sje sjesje sje $ a{s sje sje sje $ sje sje sje sje sje sje sje sje Sje sje sje sje sje sje sje sje sje 

* sje sje sje sje sje sje sje sjesje jje sje sje sje sje *Je sje sje sje sje sje a$c $ sje sje sje sje $ sje sje sje sje sjesje sje sje sje sje $ sje $ £ $ sje sje sje sje sje sje sje sje 

SCALE 

Jim Marselle 6/2/80 

This program calculates the transformed x-y coordinates for a scale (up) 
of factor k in x and 1 in y. We return the transformed coordinates in u and 
resp. Since we assume the pix is not centered at the origin we actually 
perform a concatenation of the transformations translate-to-origin, 
scale, and translate-back. To do this we need the x center and y center of. 
the pix in b and c, resp. 

needs : 

b, c, k, and 1. 



returns : 

u and v, the new x-y coordinates. 



clobbers : 

nothing. 



calls: 

nothing. 

sje # sje sje sje sjesje sje sje sje ajc sje j{c $ sje # % >!« sje s£ >jc # sjtsj; >}: s|« >J: 



4100' .scale I 

2110 .x' = xSx + Tx ( Sx - 1) | 

2120 .y' = ySy + Ty (Sy - 1) 

2130 u = (x - b) * k + b | 

2140 v=(y-c)*l+c I 

2150 return i 

## 3 ;':$$ | 

^ SETSCALE 

Jim Marselle 6/2/80 

This program allows the user to scale up a pix in the x and y 
dimensions by using kn(l) (We could use kn(2) for y scaling). 

When the user pulls tr(l) another copy of the pix is drawn. Hit a 
key in column one to exit. I 

i 

needs: 

0() set up. 

returns : 

nothing, 
clobbers: 

i* k, 1, p, u, v, x, y. 

calls : 

UNPK, SCALE. 

# j{* # jje # jjs # jjt $ aje # j}c jje aje aje aje jje aje jje jje aje aje aje aje Jje 

2200 .set scale 
2205 if &(23) return 
,• 2210 if t r ( 1 ) = 0 goto 2205 
\ 2215 if tr ( 1 ) mu = 100 5 goto 2215 
2220 . k = kn(l) + 129 » .down 
W 2230 k = kn(l) / 40 + 4 J .up 
2235 1 = k 

2240 for i = 92 to 0(91) + 91 

2245 gosub 500 

2250 gosub 2100 

2255 line u , v , p 

2260 next i 

2270 goto 2205 

aje j}e jje jje jje jje & & jje jje jje jje jje # sfc aje aje aje Jje jje aje aje 
Jtf- >je sis aje sis Jje aje Jje Jje aje sjt aje aje Jje aje aje jje jjt jje jj: aje aje $ jje # jje aje aje jje aje a}: aje jje 

ROT 

Jim Marselle 6/2/80 

This program rotates a pix about the axis specified by r (r is the entry 
point of the desired coordinate transformation routine, e.g. XROT , YROT, etc.) 
We use kn(l), kn(2), and kn(3) to specify the rotation angle about the x, y, 
and z axes, resp. These angles are saved in t (theta), g (gamma), and p (phi). 
The sines of t, g, and p are s, f, and h, resp. 

The cosines of t, g, and p are c, d, and e, resp. 

To draw a rotated pix, pull tr(l), to exit hit any key in column 1. 
needs : 

0() set up and r, the entry point of the desired rotation routine. 



w 



returns : 

nothing. 



clobbers: 

c, d, e, f, h, i, p, t. 

calls : 

COSSIN, UNPK, and the ROT routine specified by r. 

»’.£ i'f :',e jje ^ aje jje jje 3',; jje jje Jje Jje jje s',: jje aj; jje Jje jje Jje jje aje aje aje a£ Jje 



2310 

2320 

2330 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 
2360 
2380 
2385 
2390 

2395 

2396 



.TO" 



If 
if 
if 
t = 



& (23 ) return 
tr ( 1 ) = 0 goto 
tr(l) mu = 100 



kn ( 1 ) 
kn (2 ) 
kn(3) 



t 

f 



* 180 
* 180 
* 180 
= g » 
= s 
gosub 
h - s 
gosub 
= 92 to 
500 
r 

v , 



2310 
; goto 
/ 128 
/ 128 
/ 128 
gosub 700 



2330 



P 

a = t 
d = c 

t = p > gosub 700 
e = c 

t = a 5 gosub 700 
for i = 92 to 8(91 ) + 91 
gosub 
gosub 
line u 
next i 
goto 2310 

sjc s{s # )Js jje >}: j}e # j)e # # # # # jjt sje # # jjs $ jjc jjc >}! j}ss{c sjt jje jje ije jje 
jj: % jje jje sgc jje jje jj: jje jje jje jje jj: jje jj: jjc jj; jje jje jje jje jje jje jje jje jje jje 

XYROT 

Jim Marselle 6/2/80 






This program calculates transformed coordinates for a rotation about 
the x followed by y axes at the angles whose cosines = c and d, resp. and 
whose sines = s and f, resp. 



needs: 

x, y, z = original pix coordinates, (note: z - 0 if we're 2D). 

c, s, d, f. 

returns : 

u, v = new pix x-y coordinates. 

clobbers : 

nothing. 



calls : 

nothing. 

jj: ije jje jje jj: sjc Jj: jje jje ije jje jje jje jje jje jje jje jje jje Jje jje jje jje jje jje jje 

2400 .xyrot 

2410 .x' = xcosg + ysint sing - zsing cost 
2420 .y' = ycost + zsint 

2430 . cos t, g, p = c, d, e. sin t, g, p = s f f, h. 

2440 u = x * d / 250 

2441 u = u + (y * s / 250 * f / 250) 

2442 u = u - (z * f / 250 * c / 250) 

2450 v = y * c / 250 + z * s / 250 
2460 return 

Jje jje jje jje jje jje jje jje jje jje jjc jje jje jje jje jje jje jje jje jjejje jje jje jje jje jje jje jje 

Jje jje jje jje jje jje jje jje j£ sjc jje jje Jje Jje jje Jje jje jje Jje jje jje jje Jje jje jje jje jje jje Jje jje Jje Jje Jje Jje # 

SETMOV 

Jim Marselle 6/2/80 

This program allows the user to translate a pix in the x and y 
directions by using jx(l) and jy(l), resp. We draw a flashing box 
which indicates the center of where the pix will be drawn. 

When the user pulls tr(l) another copy of the pix is drawn. Hit a 
key in column one to exit. 

reeds: 

@() set up, b and c = x center and y center, resp. 



returns : 



nothing. 



clobbers 



i , k, 1, m, n t p, u f v, x, y. 



calls : 

UNPK, MOV. 

2500 .setmov 

2505 m = 0 ; n = 0 

2510 if &(23) return 

2515 m = m + jx(l) ; n = n + jy(l) 

2520 box m , n f 2 , 2 , 1 

2525 box m , n , 2 , 2 , 3 

2530 if tr(l ) = 0 goto 2510 

2535 if tr( 1 ) mu = 100 ; goto 2535 

2540 k = m - b ; 1 = n - c 

2545 for i = 92 to 0(91) + 91 

2550 gosub 500 

2560 gosub 2000 

2570 line u , v , p 

2580 next i 

2590 goto 2510 



